home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / trinitybbs20.lha / OLP / HangMan < prev    next >
Text File  |  1995-09-26  |  9KB  |  245 lines
  1. /* this is neat.. */
  2.  
  3. options results
  4. bufferflush
  5.  
  6. CLS = "f1"
  7. GETUSER 1
  8. UserName = result
  9.  
  10. transmit CLS
  11. transmit "c1          ______                                               ______"
  12. transmit "c1          |    |                   z6HANG MAN!z0                   |    |"
  13. transmit "c1          |   {~}                                             {~}   |"
  14. transmit "c1          |  ( V-)                c5Version 1.0c1                ( V-)  |"
  15. transmit "c1          |  `|Y|'           c7Written By J.L.c1 White           `|Y|'  | "
  16. transmit "c1          |  _|||_         c1(c6Cc1)c31989 c4Merlin's Softwarec1         _|||_  |"
  17. transmit "c1       ___|___                                                   ___|___"
  18. transmit " "
  19. GETUSER 28
  20. type = result
  21. if type = 0 then transmit "Sorry! Due To Cursor Movement In This Game, It Is"
  22. if type = 0 then transmit "An ANSI Only Game.  Look In The ASCII Games Section."
  23. if type = 0 then exit
  24. do i = 1 to 100
  25. end
  26.  
  27. RandomNum = RANDOM(1,90,Time('s'))
  28.  
  29. /* Movie Titles */
  30. if RandomNum = 1 then HangWord = strip("Attack Of The Killer Tomatoes") 
  31. if RandomNum = 2 then HangWord = strip("The Wizard Of Oz")
  32. if RandomNum = 3 then HangWord = strip("Three Men And A Baby")
  33. if RandomNum = 4 then HangWord = strip("BeetleJuice")
  34. if RandomNum = 5 then HangWord = strip("Superman")
  35. if RandomNum = 6 then HangWord = strip("Batman")
  36. if RandomNum = 7 then HangWord = strip("The Terminator")
  37. if RandomNum = 8 then HangWord = strip("Police Academy")
  38. if RandomNum = 9 then HangWord = strip("Gone With The Wind")
  39. if RandomNum = 10 then HangWord = strip("Star Trek")
  40. if RandomNum = 11 then HangWord = strip("Up In Smoke")
  41. if RandomNum = 12 then HangWord = strip("Raiders Of The Lost Ark")
  42. if RandomNum = 13 then HangWord = strip("Casablanca")
  43. if RandomNum = 14 then HangWord = strip("The Towering Inferno")
  44. if RandomNum = 15 then HangWord = strip("Back To The Future")
  45. if RandomNum = 16 then HangWord = strip("Any Which Way You Can")
  46. if RandomNum = 17 then HangWord = strip("Missing In Action")
  47. if RandomNum = 18 then HangWord = strip("Rambo")
  48. if RandomNum = 19 then HangWord = strip("Poltergeist")
  49. if RandomNum = 20 then HangWord = strip("Smokey And The Bandit")
  50. if RandomNum = 21 then HangWord = strip("Revenge Of The Nerds")
  51. if RandomNum = 22 then HangWord = strip("Ordinary People")
  52. if RandomNum = 23 then HangWord = strip("Goodbye Girl")
  53. if RandomNum = 24 then HangWord = strip("Amadeus")
  54. if RandomNum = 25 then HangWord = strip("War Of The Worlds")
  55. if RandomNum = 26 then HangWord = strip("The Sound Of Music")
  56. if RandomNum = 27 then HangWord = strip("Texas Chainsaw Massacre")
  57. if RandomNum = 28 then HangWord = strip("Night Of The Living Dead")
  58. if RandomNum = 29 then HangWord = strip("Star Wars")
  59. if RandomNum = 30 then HangWord = strip("Ghost Busters")
  60. /* Musical Groups */
  61. if RandomNum = 31 then HangWord = strip("Skinny Puppy")
  62. if RandomNum = 32 then HangWord = strip("Dead Or Alive")
  63. if RandomNum = 33 then HangWord = strip("Young MC")
  64. if RandomNum = 34 then HangWord = strip("Michael Jackson")
  65. if RandomNum = 35 then HangWord = strip("Sinead OConnor")
  66. if RandomNum = 36 then HangWord = strip("Cyndi Lauper")
  67. if RandomNum = 37 then HangWord = strip("Phil Collins")
  68. if RandomNum = 38 then HangWord = strip("Janet Jackson")
  69. if RandomNum = 39 then HangWord = strip("PetShop Boys")
  70. if RandomNum = 40 then HangWord = strip("Fleetwood Mac")
  71. if RandomNum = 41 then HangWord = strip("Tracey Chapman")
  72. if RandomNum = 42 then HangWord = strip("Van Halen")
  73. if RandomNum = 43 then HangWord = strip("Genesis")
  74. if RandomNum = 44 then HangWord = strip("Robert Plant")
  75. if RandomNum = 45 then HangWord = strip("Robert Palmer")
  76. if RandomNum = 46 then HangWord = strip("Cher")
  77. if RandomNum = 47 then HangWord = strip("Vangelis")
  78. if RandomNum = 48 then HangWord = strip("Stevie Nicks")
  79. if RandomNum = 49 then HangWord = strip("Ton Loc")
  80. if RandomNum = 50 then HangWord = strip("Madonna")
  81. if RandomNum = 51 then HangWord = strip("George Michael")
  82. if RandomNum = 52 then HangWord = strip("Frank Zappa")
  83. if RandomNum = 53 then HangWord = strip("Eddie Murphy")
  84. if RandomNum = 54 then HangWord = strip("Metallica")
  85. if RandomNum = 55 then HangWord = strip("Paula Abdul")
  86. if RandomNum = 56 then HangWord = strip("Wierd Al Yankovic")
  87. if RandomNum = 57 then HangWord = strip("Donna Reed")
  88. if RandomNum = 58 then HangWord = strip("Bananarama")
  89. if RandomNum = 59 then HangWord = strip("The Beatles")
  90. if RandomNum = 60 then HangWord = strip("Prince")
  91. /* Popular Sayings */
  92. if RandomNum = 61 then HangWord = strip("Do It Yourself")
  93. if RandomNum = 62 then HangWord = strip("One Life To Live")
  94. if RandomNum = 63 then HangWord = strip("Who Loves Ya Baby")
  95. if RandomNum = 64 then HangWord = strip("Kiss My Grits")
  96. if RandomNum = 65 then HangWord = strip("Make My Day")
  97. if RandomNum = 66 then HangWord = strip("You Look Marvelous")
  98. if RandomNum = 67 then HangWord = strip("Bite The Bullet")
  99. if RandomNum = 68 then HangWord = strip("All Work And No Play")
  100. if RandomNum = 69 then HangWord = strip("Break A Leg")
  101. if RandomNum = 70 then HangWord = strip("Girl Next Door")
  102. if RandomNum = 71 then HangWord = strip("No Money Down")
  103. if RandomNum = 72 then HangWord = strip("Kiss It Goodbye")
  104. if RandomNum = 73 then HangWord = strip("Speak Of The Devil")
  105. if RandomNum = 74 then HangWord = strip("Play It Again Sam")
  106. if RandomNum = 75 then HangWord = strip("Come Up And See Me Sometime")
  107. if RandomNum = 76 then HangWord = strip("Me Tarzan You Jane")
  108. if RandomNum = 77 then HangWord = strip("The Buck Stops Here")
  109. if RandomNum = 78 then HangWord = strip("Follow The Yellow Brick Road")
  110. if RandomNum = 79 then HangWord = strip("Thats A Horse Of A Different Color")
  111. if RandomNum = 80 then HangWord = strip("Cold As Ice")
  112. if RandomNum = 81 then HangWord = strip("Start From Scratch")
  113. if RandomNum = 82 then HangWord = strip("Whats Up Doc")
  114. if RandomNum = 83 then HangWord = strip("Blondes Have More Fun")
  115. if RandomNum = 84 then HangWord = strip("Kiss My Ass")
  116. if RandomNum = 85 then HangWord = strip("Better You Than Me")
  117. if RandomNum = 86 then HangWord = strip("Wet Your Whistle")
  118. if RandomNum = 87 then HangWord = strip("Start From The Top")
  119. if RandomNum = 88 then HangWord = strip("To Be Or Not To Be")
  120. if RandomNum = 89 then HangWord = strip("No Pets Allowed")
  121. if RandomNum = 90 then HangWord = strip("Seven Year Itch")
  122.  
  123. len = length(HangWord)
  124. Title = 'Movie Title'
  125. if RandomNum > 30 then Title = 'Composers/Music Groups'
  126. if RandomNum > 60 then Title = 'Popular Saying'
  127.  
  128.  
  129.  
  130.  
  131. Build = 0
  132. Bonus = 15
  133. Alphabet = "A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z "
  134. len2 = length(Alphabet)
  135. Blanks = ''
  136. do i = 1 to len
  137.     sub = substr(HangWord,i,1)
  138.     if sub == " " then Blanks = insert(Blanks,' ')
  139.     else 
  140.     Blanks = insert(Blanks,'-')
  141. end
  142. transmit Title" c1---> c5Answer c1= c1[c7 "Blanks" c1]"
  143. transmit " "
  144.  
  145. do x = 1 to 26/*main loop*/
  146.    if Build = 5 then call Lost
  147.    GotIt = 0
  148.    NewBlanks=''
  149.    GoOn = 0
  150.    do i = 1 to len
  151.     checksub = substr(Blanks,i,1)
  152.     if checksub = "-" then GoOn = 1
  153.    end
  154.    if GoOn = 0 then call Lamer
  155.    transmit Alphabet||"    "
  156.    do until guess ~= ''
  157.     transmit "n1c3Type In c5QUITc3 To Exit The Gamec1."
  158.         query "n1c3Enter A Letter Or Try To Guess Correct Answerc1: c4  <2"
  159.     guess = upper(result)
  160.     if guess = "QUIT" then exit
  161.         if guess = "###PANIC" then exit
  162.         if guess = upper(HangWord) then call Won
  163.         already = 0
  164.         do i = 1 to len2
  165.         alphasub = substr(Alphabet,i,1)
  166.         if alphasub = guess then already = 1
  167.     end
  168.     if already = 0 then guess = ''
  169.    end
  170.    do i = 1 to len2
  171.     alphasub = substr(Alphabet,i,1)
  172.     if alphasub = guess then do
  173.         Alphabet = delstr(Alphabet,i,2)
  174.     end
  175.    end
  176.    len2 = length(Alphabet)
  177.  
  178.    do i = 1 to len
  179.     sub = substr(upper(HangWord),i,1)
  180.     sub2 = substr(Blanks,i,1)
  181.     if sub = guess then do
  182.         NewBlanks = insert(NewBlanks,guess)
  183.         GotIt = 1
  184.     end
  185.     else     
  186.         NewBlanks= insert(NewBlanks,sub2)
  187.    end
  188.    if GotIt = 0 then call Wrong
  189.    Blanks = NewBlanks
  190.    transmit "^8"
  191.    transmit Title" c1---> c5Answer c1= [c7 "NewBlanks" c1]"
  192.    transmit " "
  193. end/*end of main loop*/
  194.  
  195.  
  196.  
  197. Wrong:
  198. transmit CLS
  199. Build = Build +1
  200. if Build > 4 then do
  201.     transmit "c7  _______"
  202.     transmit "  |     |  c2Sorry c3"UserName"c1,c2 You Hung Yourself!"
  203.     transmit "c1 {~}    c7|  c5Better Luck Next Time!"
  204.     transmit "c1( V-)   c7|" 
  205.     transmit "c1`|Y|'   c7|"
  206.     transmit "c1_|||_   c7|"
  207.     transmit "c7     ___|___"
  208.     transmit "n9"
  209.     return
  210. end
  211. transmit " "
  212. if Build = 1 then Answer = "Answer!" 
  213. else Answer = "Answers!"
  214. transmit "c2That Is "Build" Incorrect "Answer"n2c3"
  215. if Build > 0 then transmit " {~}"
  216. if Build > 1 then transmit "( V-)"
  217. if Build > 2 then transmit "`|Y|'"
  218. if Build > 3 then transmit "_|||_"
  219. transmit "n8 "
  220. return
  221.  
  222. Won:
  223. transmit "c1^1>9>9>9>9>9>1 z6You Got It Right!z0            "
  224. transmit "n1c3You Get c7"Bonus"c3 Extra Minutes This Call For Being So Smart!"
  225. ADDTIME Bonus
  226. LOGENTRY""UserName" Played HangMan & Won!"
  227. exit
  228. return
  229.  
  230.  
  231. Lost:
  232. LOGENTRY""UserName" Played HangMan & Lost!"
  233. shutdown
  234. exit
  235. return
  236.  
  237.  
  238. Lamer:
  239. Bonus = 5
  240. transmit " "
  241. sendstring "c1Well You Did It The Lamers Way, Butc3... "
  242. call Won
  243. return
  244. 
  245.